home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / oct90.arc / TIP581.LSP < prev    next >
Text File  |  1990-11-01  |  552b  |  24 lines
  1. ;TIP581.LSP   Bill of Materials Entry   (c)1990, Terry Priest
  2. (defun bom1st ()
  3.   (setq SC (getvar "DIMSCALE"))
  4.   (command "INSERT" "C:/ACAD/09/BOM"
  5.     pause SC "" "" pause pause pause
  6.     pause)
  7.   (setq LPOINT (getvar "LASTPOINT"))
  8.   (BOMCON)
  9. )
  10. (defun BOMCON ()
  11.   (while  T
  12.     (setq PT (polar LPOINT (* pi 1.5)
  13.       (* 0.19 SC)))
  14.     (command "INSERT" "BOM" PT SC "" ""
  15.       pause pause pause pause)
  16.     (setq LPOINT (getvar "LASTPOINT"))
  17.   )
  18. )
  19. (defun C:BOM ()
  20.   (setvar "TEXTEVAL" 1)
  21.   (if (not LPOINT)(BOM1ST)(BOMCON))
  22. )
  23.  
  24.